object DefStr: TDefStr
  Left = 275
  Top = 111
  Width = 388
  Height = 277
  Caption = 'User defined strings'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  FormStyle = fsMDIChild
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 4
    Width = 361
    Height = 89
    Alignment = taCenter
    AutoSize = False
    Caption = 
      'You can store private (this window) or global (all windows) user' +
      ' defined strings. The string returned by the TMultLang component' +
      ' depends on the selected language. Use the GetString and Set str' +
      'ing methods.'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 12
    Top = 104
    Width = 237
    Height = 33
    AutoSize = False
    Caption = 'Shows a defined string called '#39'FileNotFound'#39
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 180
    Width = 237
    Height = 53
    AutoSize = False
    Caption = 
      'Shows a string string called '#39'FileNotFound2'#39'. This string says: ' +
      '"Sorry, && FileNotFound &&. Because it is pointing to device %s ' +
      'which does not exist"'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 260
    Top = 100
    Width = 113
    Height = 25
    Caption = 'Show simple'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 260
    Top = 176
    Width = 113
    Height = 25
    Caption = 'Show advanced'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 12
    Top = 148
    Width = 121
    Height = 21
    Color = clBtnFace
    TabOrder = 2
    Text = 'Y:\PATRIK.DBF'
  end
  object MultLang1: TMultLang
    Left = 324
    Top = 52
    Width = 45
    Height = 22
    AlignIcon = alLeft
    AlignText = alLeft
    IconMargin = 1
    ItemHeight = 16
    Items.Strings = (
      'English'
      'Swedish')
    ShowIcons = False
    Text = 'English'
    ResizeIcon = False
    TextMargin = 5
    DefaultLanguage = 'English'
    LanguageFile = '%EXEPath%Mdiapp.lan'
    LanguagesData = {}
  end
  object MButtons1: TMButtons
    Captions.Strings = (
      'OK|&OK'
      'Cancel|&Cancel'
      'Yes|&Yes'
      'No|&No')
    Title = 'User defined string example'
    Left = 8
    Top = 48
  end
end